0 POKE53281,1:POKE53280,1:PRINT"[147][157]";
5 AA$=" ":PRINTCHR$(8)
10 FORA=1TO15:PRINT"[194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [199]":NEXT
20 FORA=1TO15:PRINT"[194] [194] [194] [194] [194]         [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [199]":NEXT
30 FORA=1TO15:PRINT"[194] [194] [194] [194] [194]                     [194] [194] [194] [194] [199]":NEXT
40 FORA=1TO15:PRINT"[194] [194] [194] [194] [194]         [194] [194]   [194] [194]   [194] [194] [194] [194] [199]":NEXT
50 FORA=1TO15:PRINT"[194] [194] [194] [194] [194]                     [194] [194] [194] [194] [199]":NEXT
60 FORA=1TO15:PRINT"[194] [194] [194] [194] [194] [199] [199]   [199] [194]     [194] [194]     [194] [194] [194] [199]":NEXT
63 FORA=1TO15:PRINT"[194] [194] [194] [194] [194]                     [194] [194] [194] [194] [199]":NEXT
65 FORA=1TO15:PRINT"  PRESS ANY KEY TO BEGIN THE PROGRAM  ":NEXT
67 FORA=1TO15:PRINT"  [194] [194] [194] [194] [194]                 [194] [194] [194] [194] [194]  ":NEXT
70 FORA=1TO15:PRINT"[199] [199] [199] [194] [194]                     [199] [199] [199] [199] [199]":NEXT
75 FORA=1TO15:PRINT"[199]   [199]   [194]                     [199]   [199]   [199]":NEXT
77 FORA=1TO15:PRINT"[194] [194] [194] [194] [194] [199] [199] [199] [199] [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [199]":NEXT
80 GETX$:IFX$=""THEN60
85 FORA=1TO15:PRINT"[194] [194] [194] [194] [194]ONE MOMENT PLEASE[194] [194] [194] [194] [194] [194] [199]":NEXT
90 FORA=1TO15:PRINT"[199] [199] [199] [194] [194]                     [199] [199] [199] [199] [199]":NEXT
91 PM$="[209][209][209][209] [209]       [209]"
92 PM$=PM$+"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][209]  [209] [209][209]     [209][209]"
93 PM$=PM$+"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][209][209][209][209] [209] [209]   [209] [209]"
94 PM$=PM$+"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][209]    [209]  [209] [209]  [209]"
95 PM$=PM$+"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][209]    [209]   [209]   [209]"
96 AM$="[209][209][209][209] [209]      [160][209]"
97 AM$=AM$+"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][209]  [209] [209][209]     [209][209]"
98 AM$=AM$+"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][209][209][209][209] [209] [209]   [209] [209]"
99 AM$=AM$+"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][209]  [209] [209]  [209] [209]  [209]"
100 AM$=AM$+"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][209]  [209] [209]   [209]   [209]"
125 FORA=1TO25:PRINT"[199] [199] [199] [194] [194] ONE MOMENT  PLEASE  [199] [199] [199] [199] [199]":NEXT
126 FORA=1TO25:PRINT"[194] [194] [194] [194] [194] [199] [199] [199] [199] [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [199]":NEXT
127 IFVAL(TI$)<010000THEN160
128 IFVAL(TI$)=>130000THEN160
129 PRINT"REGISTER READS- ";TI$
130 PRINT"IS THIS CORRECT, USER?"
140 GETX$:IFX$=""THEN129
150 IFX$<>"N"THEN500
160 PRINT"[147]TYPE CORRECT VALUE (12-HOUR FORMAT)"
165 PRINT" 010000-125959 (HHMMSS 6 DIGITS)":INPUT A1$:GOTO172
170 GOTO165
172 A1$=LEFT$(A1$,6)
173 IFVAL(A1$)<010000THEN170
195 IFVAL(A1$)>125959THEN170
210 TI$=A1$
300 PRINT"";TI$
305 GOSUB 30000
310 A3=A3+1:IFA3>200THEN85
320 GOTO300
500 GOSUB507
505 GOTO2015
507 XC$="[157][157][157][157][157][157][157][157]"
510 K$(0)=XC$:FOR II=1TO8:K$(0)=K$(0)+AA$:NEXT:AA$=AA$+"[146]"
520 K$(1)=XC$+AA$+"[146]      "+AA$+"[146]"
530 K$(2)=XC$+"[146]       "+AA$+"[146]"
540 K$(3)=XC$+"[146]"+AA$+"       "
550 K$(4)=XC$+"[146]        "
610 K$(5)=RIGHT$(K$(0),16)
620 K$(6)=RIGHT$(K$(1),14)
630 K$(7)=RIGHT$(K$(2),12)
640 K$(8)=RIGHT$(K$(3),11)
650 K$(9)=RIGHT$(K$(4),9)
1000 A$(0)=K$(5)+K$(1)+K$(1)+K$(1)+K$(1)+K$(1)+K$(1)
1010 A$(0)=A$(0)+K$(1)+K$(1)+K$(0)
1020 A$(1)=K$(7)+K$(2)+K$(2)+K$(2)+K$(2)+K$(2)+K$(2)
1030 A$(1)=A$(1)+K$(2)+K$(2)+K$(2)
1040 A$(2)=K$(5)+K$(2)+K$(2)+K$(2)+K$(0)+K$(3)+K$(3)
1050 A$(2)=A$(2)+K$(3)+K$(3)+K$(0)
1060 A$(3)=K$(5)+K$(2)+K$(2)+K$(2)+K$(0)+K$(2)+K$(2)
1070 A$(3)=A$(3)+K$(2)+K$(2)+K$(0)
1080 A$(4)=K$(6)+K$(1)+K$(1)+K$(1)+K$(0)+K$(2)+K$(2)
1090 A$(4)=A$(4)+K$(2)+K$(2)+K$(2)
1100 A$(5)=K$(5)+K$(3)+K$(3)+K$(3)+K$(0)+K$(2)+K$(2)
1110 A$(5)=A$(5)+K$(2)+K$(2)+K$(0)
1120 A$(6)=K$(5)+K$(3)+K$(3)+K$(3)+K$(0)+K$(1)+K$(1)
1130 A$(6)=A$(6)+K$(1)+K$(1)+K$(0)
1140 A$(7)=K$(5)+K$(2)+K$(2)+K$(2)+K$(2)+K$(2)+K$(2)
1150 A$(7)=A$(7)+K$(2)+K$(2)+K$(2)
1160 A$(8)=K$(5)+K$(1)+K$(1)+K$(1)+K$(0)+K$(1)+K$(1)
1170 A$(8)=A$(8)+K$(1)+K$(1)+K$(0)
1180 A$(9)=K$(5)+K$(1)+K$(1)+K$(1)+K$(0)+K$(2)+K$(2)
1190 A$(9)=A$(9)+K$(2)+K$(2)+K$(2)
1200 A$(10)=K$(9)+K$(4)+K$(4)+K$(4)+K$(4)+K$(4)+K$(4)
1210 A$(10)=A$(10)+K$(4)+K$(4)+K$(4)
1230 RETURN
2015 PRINT"[147]";A$(1):PRINT"";A$(0)
2017 FORX=1TO1000:NEXT
2020 PRINT"[147]";:FORA=9TO0STEP-1:PRINT"";:PRINTA$(A);
2030 NEXT
2040 PRINT"[147]"
2100 PRINT"            PRESS Q TO QUIT."
2102 GETR$:R=VAL(R$):IFR$="Q"THEN63000
2107 X1$=LEFT$(TI$,1):X2$=MID$(TI$,2,1):X3$=MID$(TI$,3,1)
2110 X4$=MID$(TI$,4,1):X5$=MID$(TI$,5,1):X6$=RIGHT$(TI$,1)
2120 X7$=X1$+X2$+X3$+X4$+X5$+X6$
2130 IFX7$=AL$+"01"THENGOSUB20000
2140 IFX1$="0"THEN2155
2150 PRINT"";A$(VAL(X1$)):GOTO2160
2155 PRINT"";A$(10)
2160 PRINT"";A$(VAL(X2$))
2170 PRINT"";X5$
2180 PRINT"";X6$
2190 PRINT"";A$(VAL(X3$))
2200 PRINT"";A$(VAL(X4$))
2310 GOSUB30000
3285 IFR=0THEN2100
3290 ONRGOSUB4000,5000,6000,7000,8000,9000,9500,9600,40000
3300 GOTO2100
4000 PRINT"[147]":FORS=1TO10
4002 X5$=MID$(TI$,5,1):X6$=RIGHT$(TI$,1)
4003 GOSUB30000
4010 PRINT"";A$(VAL(X5$))
4015 PRINT"";A$(VAL(X6$))
4020 GETX1$:IFX1$=" "THEN4002
4030 NEXT:PRINT"[147]":RETURN
5000 PRINT"[147]":G1$=G3$
5001 PRINT"":G1$=G3$
5170 PRINT"";G3$
5180 PRINT" (P)M OR (A)M ?";
5220 GETG1$:IFG1$=""THENGOSUB30000
5222 PRINTG1$
5223 IFG1$="A"THENG1$=AM$:GOTO5230
5224 IFG1$="P"THENG1$=PM$:GOTO5230
5225 G3$=G1$:GOTO5001
5230 PRINT"[147]":RETURN
6000 PRINT"[147]";G1$
6010 FORA=1TO1000:NEXT
6020 PRINT"[147]":RETURN
7000 S=54272
7010 FORL=0TO24:POKES+L,0:NEXT
7030 POKES+14,5
7040 REMPOKES+18,16
7050 POKES+3,1
7060 POKES+24,143
7070 POKES+6,240
7080 POKES+4,65
7090 FR=5389
7100 GETD$
7110 FQ=FR+PEEK(S+27)*3.5
7120 HF=INT(FQ/256):LF=FQ-HF*256
7130 POKES+0,LF:POKES+1,HF
7135 GOSUB30000
7140 IFD$=""THEN7100
7150 POKES+24,0:R=0:RETURN
8000 PRINT"[147]"
8010 INPUT"ALARM SETTING 0100-1259";AL$
8015 IFVAL(AL$)>1259ORVAL(AL$)<0100THENPRINT"[145][145]":GOTO8010
8017 IFLEN(AL$)>4THENPRINT"[145][145]":GOTO8010
8020 INPUT"PM OR AM";G2$
8022 IFG2$=PM$THEN8030
8024 IFG2$=AM$THEN8030
8025 IFG2$="PM"THENG2$=PM$:GOTO8030
8026 IFG2$="AM"THENG2$=AM$:GOTO8030
8028 PRINT"[145][145]":GOTO8020
8030 PRINT"[147]";:RETURN
9000 PRINT"[147]"
9010 PRINT"";A$(VAL(LEFT$(AL$,1)))
9020 PRINT"";A$(VAL(MID$(AL$,2,1)))
9030 PRINT"";A$(VAL(MID$(AL$,3,1)))
9040 PRINT"";A$(VAL(RIGHT$(AL$,1)))
9050 PRINT"";G2$
9460 FORA=1TO200
9470 GOSUB30000
9480 NEXT
9490 PRINT"[147]":RETURN
9500 PRINT"HIT 1-8 TO CHANGE COLORS. (BLK-YEL)"
9505 GOSUB30000
9510 GETRR$:IFVAL(RR$)<1ORVAL(RR$)>8THEN9505
9515 PRINT"[147]                                   "
9520 POKE53281,VAL(RR$)-1
9530 POKE53280,VAL(RR$)-1:RETURN
9600 PRINT"HIT 1-8 TO CHANGE COLORS. (ORA-GREY3)"
9605 GOSUB30000
9610 GETRR$:IFVAL(RR$)<1ORVAL(RR$)>8THEN9605
9615 PRINT"[147]                                     "
9620 POKE53281,VAL(RR$)+7
9630 POKE53280,VAL(RR$)+7:RETURN
20000 IFG1$><G2$THENRETURN
20010 GOSUB7000
20100 RETURN
30000 IFTI$="120000"THEN30030
30001 IFTI$=AL$+"01"THEN20000
30003 IFVAL(LEFT$(TI$,2))<13THEN30020
30005 ZZ=VAL(LEFT$(TI$,2)):IFZZ>12THENXX$=STR$(ZZ-12)+RIGHT$(TI$,4)
30006 IFASC(XX$)=32THENXX$="0"+RIGHT$(XX$,5)
30007 IFLEN(XX$)>6THENXX$="0"+RIGHT$(XX$,5)
30015 TI$=XX$
30020 RETURN
30030 IFG1$=AM$THENG3$=PM$
30040 IFG1$=PM$THENG3$=AM$
30050 FORA=1TO1000:NEXT:G1$=G3$:RETURN
40000 PRINT""
40010 PRINT"NEW CHARACTER? ";
40012 GOSUB30000
40015 GETAA$:IFAA$=""THEN40012
40016 IFASC(AA$)=13ORASC(AA$)=141ORASC(AA$)=34THEN40000
40017 PRINTAA$
40018 PRINT"HIT <F1> FOR RVS-ON OR <F3> FOR RVS-OFF ";
40019 GOSUB30000
40020 GETBB$:IFBB$=""THEN40019
40030 IFBB$="[133]"THENAA$=""+AA$:PRINT"RVS-ON":GOTO40045
40040 IFBB$="[134]"THENAA$="[146]"+AA$:PRINT"RVS-OFF":GOTO40045
40043 PRINT"[145][145]":GOTO40018
40045 PRINT"HIT <CTRL 1-8> OR <COMMODORE 1-8> FOR   COLOR";
40047 GOSUB30000
40050 GETBB$:IFBB$=""THEN40047
40051 PRINTBB$
40055 GOSUB507
40060 PRINT"[147]":Z=0:RETURN
63000 REM    CONNECT BACK TO L.S.
63002 PRINT"[147]LOAD"CHR$(34)"C.PAYLOAD"CHR$(34)",8":PRINT"RUN"
63004 POKE198,0:POKE631,13:POKE632,13:POKE198,2:END